﻿Public Class fLogin

    Private Sub btnAuthentification_Click(sender As System.Object, e As System.EventArgs) Handles btnAuthentification.Click
        If tbLogin.Text = "admin" And tbPassword.Text = "admin" Then
            fAdmin.Visible = True
            fMagasin.Visible = False
            lblErreurLogin.Visible = False
            Me.Visible = False
        ElseIf tbLogin.Text = "client" And tbPassword.Text = "client" Then
            fAdmin.Visible = False
            fMagasin.Visible = True
            lblErreurLogin.Visible = False
            Me.Visible = False
        Else
            fAdmin.Visible = False
            fMagasin.Visible = False
            lblErreurLogin.Visible = True
        End If
    End Sub
End Class
